5 REM <CTRL-M><CTRL-M>*******************<CTRL-M>* *<CTRL-M>* GALLEY *<CTRL-M>* COPYRIGHT 1986, *<CTRL-M>* BY RANDY BRANDT *<CTRL-M>* *<CTRL-M>*******************<CTRL-M>
55 ITEMS = 6: DIM A$(IT): FOR I = 0 TO ITEMS: READ A$(I): NEXT : FOR I = 0 TO 5: READ B$(I): NEXT :B$(3) = "Slot " + STR$(DS) +" Drive " + STR$(DN): FOR I = 0 TO 6: READ M$(I): NEXT
176 VTAB 23: PRINT : PRINT "Press M for Main.Menu, A for Applesoft, or Esc to continue";: CALL CL: POKE C8,Q(QO): INVERSE : PRINT " "Q$(QO)" ";: NORMAL
178 & KEY,33,24:X = PEEK(0): IF X = 27 OR (X = 13 AND QO = 2) THEN GOSUB 9500: GOTO 170
180 IF X = 77 OR X = 109 OR (X = 13 AND QO = 0) THEN X = 77: GOTO 190
182 IF X = 65 OR X = 97 OR (X = 13 AND QO = 1) THEN X = 65: GOTO 190
184 IF NOT (X = 8 OR X = 21) THEN & BEEP: GOTO 178
186 IF X = 8 THEN QO = QO -1: IF QO = -1 THEN QO = 2
188 IF X = 21 THEN QO = QO +1: IF QO = 3 THEN QO = 0
189 GOTO 176
190 GOSUB 9800
192 IF X < >77 THEN HOME : PRINT CHR$(21): PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART.": END
195 PRINT D$"-MAIN.MENU"
198 ON X GOTO 1000,2000,3000,4000,4400,5000: & BEEP: GOTO 170
10000 ER = PEEK(222):EL = PEEK(218) +256 * PEEK(219): PRINT ER,EL: GET X$
10004 IF ER = 77 OR ER = 12 THEN HOME : PRINT "<CTRL-G>INSUFFICIENT MEMORY; PLEASE REBOOT": END
10005 IF EL = 30 THEN PRINT "<CTRL-G>A disk must be in the drive": GOSUB 9800: END : GOTO 30
10015 IF EL = 35 THEN PRINT "<CTRL-G>The file MENUS must be on the disk": GOSUB 9800: END
10025 IF EL = 40 THEN PRINT "<CTRL-G>The file GALLEY.CODE must be on the disk": GOSUB 9800: END
10040 IF EL = 2360 THEN & BEEP: VTAB 23: PRINT : PRINT "Unable to load file; press Return";:NA$ = "None": CALL CL: & KEY,18,24: GOTO 2000: GOTO 2360
10045 IF EL = 195 THEN VTAB 23: PRINT : PRINT "Insert the MacroWorks disk; press Return ";: CALL CL: GET X$: ON X$ < > CHR$(27) GOTO 195: RUN
10048 IF EL = 9800 THEN & BEEP: VTAB 23: PRINT : PRINT "Insert the MacroWorks disk; press Return";: CALL CL: & KEY,21,24: GOTO 9800
10050 IF EL >2000 AND EL <2250 THEN & BEEP: VTAB 23: PRINT : PRINT "Unable to find directory; press Return";: CALL CL: & KEY,20,24: GOSUB 9500: GOTO 2030
10060 DATA "Print the Current File","Load a Word Processor File","Select the Number of Columns","Set Space between Columns","Set Left Margin","Set Printer Slot","Quit" : REM A$(6)
10070 DATA "Preview on Screen","Print to Current Printer","Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": REM B$(5)
10090 DATA "Galley Menu","Load a File","Print the File","Select Columns","Select Spaces","Set Left Margin","Select Printer Slot" : REM M$(6)